﻿Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports Exp.DAL
Imports Exp.Model
Public Class Currency_Service
    Public Function GetAll() As List(Of REM_Currency)
        Dim ctx As New EXPEntities
        Dim list = ctx.REM_Currency.ToList()
        Return list
    End Function
    Public Function GetByID(ByVal iCurrencyID As Integer) As REM_Currency
        Dim ctx As New EXPEntities
        Dim obj = ctx.REM_Currency.Where(Function(o) o.Currency_ID = iCurrencyID).FirstOrDefault()
        Return obj
    End Function
End Class
